#include <iostream>
#include <string>
#include <stdexcept>
#include "item.h"
#include "mapitem.h"
#include <vector>
#include "location.h"
#include "SDL.h"
#include "SDL_image.h"
#include "sdlmap.h"
using namespace std;

static const int det_map[32][64] = {
       { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 }, // 4
       { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 }, // 8
       { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 }, // 12
       { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 }, // 16
       { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 }, // 20
       { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 }, // 24
       { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 }, // 28
       { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2 }, // 32
       { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2 }, // 36
       { 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2 }, // 40
       { 0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2 }, // 44
       { 0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2 }, // 48
       { 0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2 }, // 52
       { 0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2 }, // 56
       { 0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2 }, // 60
       { 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 }, // 64
       { 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 }, // 64
       { 3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4 }, // 60
       { 3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4 }, // 56
       { 3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4 }, // 52
       { 3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4 }, // 48
       { 3,3,3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4 }, // 44
       { 3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4 }, // 40
       { 3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4 }, // 36
       { 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 }, // 32
       { 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 }, // 28
       { 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 }, // 24
       { 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 }, // 20
       { 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 }, // 16
       { 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 }, // 12
       { 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 }, // 8
       { 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 }, // 4

};

SDLMap::SDLMap(Location *loc, SDL_Surface *screen_) throw(sdlmap_error)
{
       int x;
       int y;

       map_ = NULL;
       x = -32;
       y = -16;

       loc_ = loc;

       bool indent = true;

       // Create an Surface in video memory that will serve as the map.
       map_ = SDL_CreateRGBSurface(SDL_HWSURFACE, screen_->w, screen_->h, 32, 0, 0, 0, 0);
       if(map_ == NULL)
       {
	      throw sdlmap_error("Could not create map surface in video memory!");
       }

       // Outer loop controls the line feeding.
       // Inner loop controls the column feeding.
       for(int rad = 0; rad < 44; rad++)
       {
	      for(int kol = 0; kol < 17; kol++)
	      {
		     tile_ = NULL;	
		     string tempPath = loc->map_[kol][rad]->getPicName();
		     tile_ = IMG_Load(tempPath.c_str());
		     if(tile_ == NULL)
		     {
			    SDL_FreeSurface(map_);
			    throw sdlmap_error("Could not load tile!");
		     }
		     trect_.h = tile_->h;
		     trect_.w = tile_->w;
		     trect_.x = x;
		     trect_.y = y;

		     SDL_BlitSurface(tile_, NULL, map_, &trect_);
		     
		     x += 64;
		     SDL_FreeSurface(tile_);
		     tile_ = NULL;

	      }	      
	      y += 16;

	      if(indent == false)
	      {
		     x = -32;
		     indent = true;
	      }
	      else
	      {
		     x = 0;
		     indent = false;
	      }
       }
}

SDLMap::~SDLMap() throw(sdlmap_error)
{
       if(map_ != NULL)
       {
	      SDL_FreeSurface(map_);
       }
}

void SDLMap::render(SDL_Surface *screen) throw(sdlmap_error)
{
       mrect_.h = map_->h;
       mrect_.w = map_->w;
       mrect_.x = 0;
       mrect_.y = 0;

       SDL_BlitSurface(map_, NULL, screen, &mrect_);
}

bool SDLMap::walkable(int mouseX, int mouseY)
{
       int tile_x = mouseX;
       int tile_y = mouseY;

       getTileXY(tile_x, tile_y);

       // Check the values so they don't override the limits
       // of the map size.
       if((tile_x < 17) && (tile_x >= 0) && (tile_y < 44) && (tile_y >= 0))
       {
	      if(loc_->map_[tile_x][tile_y]->getWalkable())
	      {
		     return true;
	      }
       }       

       return false;
}

void SDLMap::getTileXY(int &x, int &y)
{
       int tile_x = 0;
       int tile_y = 0;
       int rel_x = 0;
       int rel_y = 0;

       // Split the field into squares and
       // calculate which one has been clicked.
       tile_x = (x / 64);
       tile_y = (y / 32);

       // Convert screen mouse coordinates into
       // relative coordinates for the clicked square
       rel_x = x - ((tile_x) * 64);
       rel_y = y - ((tile_y) * 32);

       // Use arithmetic sum n * 2 + 1
       // to calculate the correct offset
       // for the y-coordinate of the square.
       tile_y = ((tile_y * 2) + 1);

       // Determine which triangle in the square
       // that has been clicked and adjust coordinates
       // accordingly.
       switch(det_map[rel_y][rel_x])
       {
       case 0:
	      tile_y--;
	      break;
       case 2:
	      tile_x++;
	      tile_y--;
	      break;
       case 3:
	      tile_y++;
	      break;
       case 4:
	      tile_x++;
	      tile_y++;
	      break;
       }

       x = tile_x;
       y = tile_y;
}

void SDLMap::getTileScreenXY(int &x, int &y)
{
       int scX = 0;
       int scY = 0;

       // Determines if the tile is even divisible with 2.
       if((y%2) != 0)
       {
	      scX = (x * 64) + 32;
	      scY = (y * 32) / 2;	     
       }
       else
       {
	      scX = (x * 64);
	      scY = (y * 16);
       }

	x = scX;
	y = scY;
}

void SDLMap::addItem(class Item *item)
{
       loc_->addItem(item);
}

/* Check if the tile is containing an item. */
bool SDLMap::containsItem(int tileX, int tileY)
{       
       if(loc_->map_[tileX][tileY]->containsItem())
       {
	      return true;
       }

       return false;
}